home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_B.d64 / oregon trail (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  254 lines
  1. 20 poke53272,23:print"[147]"tab(13)"[207][210][197][199][207][206]-[212][210][193][201][204][146]":input" [194]rauchst du [197]rlaeuterungen (j/n)";c$:ifleft$(c$,1)="n"thenprint"":goto390
  2. 60 print"[147][196]as [208]rogramm simuliert eine [198]ahrt auf":print"dem [207]regon-[212]rail von [201]ndependence in":print"[205]issouri nach [207]regon-[195]ity in [207]regon.":print"[196]eine 5-koepfige [198]amilie wird den 2040":print"[205]eilen langen [207]regon-[212]rail in 5-6 [205]on.":print"zuruecklegen...  wenn sie ueberlebt!"
  3. 120 print"[201]hr habt $900 fuer die [210]eise gespart und";:print"$200 fuer den [208]lanwagen bezahlt. [196]en":print"[210]est des [199]eldes verwendet ihr fuer:":print"[207]chsen[146]":print"[196]as [199]espann kostet $200 bis $300.":print"[199]ute [212]iere kosten das meiste."
  4. 180 print"[214]erpflegung[146]":print"[202]e mehr zu essen, desto kleiner die":print"[205]oeglichkeit, krank zu werden.":print"[205]unition[146]":print"50 [208]atronen kosten $1.":print"[194]ekleidung[146]":print"[201]n den [194]ergen ist es kalt.":print"[211]onstiges[146]":print"[200]eilmittel, [215]erkzeug, etc."
  5. 230 input"[215]enn du fertig bist, schreibe 'ok'";n$:ifn$<>"ok"goto230
  6. 250 print"[147][197]s muss nicht alles [199]eld ausgegeben":print"werden, denn wenn etwas fehlt, kann es":print"in einem [198]ort gekauft werden. [196]ort":print"kostet es natuerlich etwas mehr. [204]ebens-";:print"mittel kannst du durch [202]agd ergaenzen."
  7. 300 print"[202]edesmal, wenn du dein [199]ewehr benutzt,":print"musst du etwas schreiben, das sich wie":print"ein [211]chuss anhoert. [202]e schneller du":print"das [215]ort schreibst und die return-[212]aste":print"drueckst, desto hoeher ist die [215]ahr-":print"scheinlichkeit, dass du triffst."
  8. 360 print"[206]ach jedem [212]eilstueck wird der [215]ert":print"[196]eines [194]esitzes angezeigt, und nun":printtab(12)"[214]iel [199]lueck!"
  9. 390 print"[215]ie gut bist du mit dem [199]ewehr?":print"[199]ib eine ganze [218]ahl zwischen 1 und 5 an!";:print"1[146] = [205]eisterschuetze  2[146] = ganz gut":print"3[146] = es geht          4[146] = aus der [213]ebung":print"5[146] = [201]ch bin dauernd am zittern."
  10. 440 print"[202]e besser du bist, desto schneller musstdu schiessen     ":inputd9:ifd9>5thend9=5:goto460
  11. 460 x1=-1:print"[147]"
  12. 480 input"[215]ieviel $ sollen die [207]chsen kosten";a:ifa>=200then520
  13. 500 print"[199]eizhals! [196]afuer gibt es keine [212]iere.":goto480
  14. 520 ifa<=300then550
  15. 530 print"[218]uviel! [211]o teure [212]iere gibt es nicht.":goto480
  16. 550 input"[198]uer wieviel $ [206]ahrungsmittel";f:iff>=0then580
  17. 570 print"[196]as geht wohl nicht. [206]ochmal!":goto550
  18. 580 input"[198]uer wieviel $ [205]unition";b:ifb>=0then610
  19. 600 print"[196]as geht nicht!":goto580
  20. 610 input"[198]uer wieviel $ [203]leidung";c:ifc>=0then640
  21. 630 print"[196]as geht nicht. [206]ochmal!":goto610
  22. 640 input"[215]ieviel $ fuer [211]onstiges";m1:ifm1>=0then680
  23. 660 print"[211]o nicht. [206]ochmal!":goto640
  24. 680 t=700-a-f-b-c-m1:ift>=0then730
  25. 700 print"[147][196]u wolltest mehr ausgeben, als du hast.":print"[214]ersuche es noch einmal!":goto480
  26. 730 b=50*b:print"[147][206]ach den [197]inkaeufen bleiben [196]ir noch":print"$";t;" uebrig."
  27. 750 print"[193]lles klar? [196]ann kann es ja losgehen.   schreibe 'hue'":inputl$:ifl$="hue"then780
  28. 770 print"[215]ollen die [207]chsen noch nicht? [198]uettere  sie nochmal!":goto750
  29. 780 print"[147][205]ontag, 29.[205]aerz 1847":goto1270
  30. 800 ifm>=2040then4640
  31. 810 d3=d3+1:print"[205]ontag, ";:ifd3>10then850
  32. 840 ond3goto860,880,900,920,940,960,980,1000,1020,1040
  33. 850 ond3-10goto1060,1080,1100,1120,1140,1160,1180,1200,1220,1240
  34. 860 print"12. [193]pril ";:goto1260
  35. 880 print"26. [193]pril ";:goto1260
  36. 900 print"10. [205]ai ";:goto1260
  37. 920 print"24. [205]ai ";:goto1260
  38. 940 print"7. [202]uni ";:goto1260
  39. 960 print"21. [202]uni ";:goto1260
  40. 980 print"5. [202]uli ";:goto1260
  41. 1000 print"19. [202]uli ";:goto1260
  42. 1020 print"2. [193]ugust ";:goto1260
  43. 1040 print"16. [193]ugust ";:goto1260
  44. 1060 print"31. [193]ugust ";:goto1260
  45. 1080 print"13. [211]eptember ";:goto1260
  46. 1100 print"27. [211]eptember ";:goto1260
  47. 1120 print"11. [207]ktober ";:goto1260
  48. 1140 print"25. [207]ktober ";:goto1260
  49. 1160 print"6. [206]ovember ";:goto1260
  50. 1180 print"22. [206]ovember ";:goto1260
  51. 1200 print"6. [196]ezember ";:goto1260
  52. 1220 print"20. [196]ezember ";:goto1260
  53. 1240 print"[196]eine [198]amilie stirbt im ersten [211]chnee   sturm im [215]inter.":goto4490
  54. 1260 print"1847:"
  55. 1270 iff>=0then1290
  56. 1280 f=0
  57. 1290 ifb>=0then1310
  58. 1300 b=0
  59. 1310 ifc>=0then1330
  60. 1320 c=0
  61. 1330 ifm1>=0then1350
  62. 1340 m1=0
  63. 1350 iff>=13then1370
  64. 1360 print"[196]u solltest jagen oder etwas zum [197]ssen  kaufen...  aber schnell!!"
  65. 1370 f=int(f):b=int(b):c=int(c):m1=int(m1):t=int(t):m=int(m):m2=m:ifs4=1then1410
  66. 1390 ifk6=1then1410
  67. 1400 goto1450
  68. 1410 t=t-20:ift<0then4400
  69. 1430 print"[196]er [193]rzt verlangt $20":lk8=0:s4=0
  70. 1450 ifm9=1then1470
  71. 1460 print"[194]is jetzt habt ihr"m"[205]eilen ":print"zurueckgelegt.":goto1490
  72. 1470 print"[206]ach 950 [205]eilen:":m9=0
  73. 1490 print"[214]erpflegung";tab(13);f:print"[208]atronen";tab(13);b:print"[194]ekleidung";tab(13);c:print"[211]onstiges";tab(13);m1:print"[194]argeld";tab(13);t:print:ifx1=-1then1580
  74. 1530 x1=x1*(-1)
  75. 1540 print"[215]illst du 1[146] im naechsten [198]ort einkaufen,";:print"2[146] jagen oder 3[146] weiterfahren":inputx:x=int(x):ifx>2orx<1thenx=3
  76. 1570 goto1680
  77. 1580 print"[215]illst du 1[146] jagen oder 2[146] weiterfahren":inputx:ifx=1then1620
  78. 1610 x=2
  79. 1620 x=x+1:ifx=3then1670
  80. 1640 ifb>39then1670
  81. 1650 print"[200]allo - du brauchst mehr [208]atronen zum   [202]agen.":goto1580
  82. 1670 x1=x1*(-1)
  83. 1680 onxgoto1690,1940,2100
  84. 1690 print"[147][211]chreib, was du fuer folgendes ausgeben willst:":print"[214]erpflegung  $";:gosub1730:goto1820
  85. 1730 inputp:ifp<0then1810
  86. 1750 t=t-p:ift>=0then1810
  87. 1770 print"[211]oviel hast du nicht - [206]imm weniger.":print"[196]u vergibst die [205]oeglichkeit, das zu    kaufen!":t=t+p:p=0
  88. 1810 return
  89. 1820 f=f+2/3*p:print"[205]unition     $";:gosub1730:b=int(b+2/3*p*50):print"[194]ekleidung   $";:gosub1730:c=c+2/3*p:print"[211]onstiges    $";:gosub1730:m1=m1+2/3*p:m=m-45:goto2100
  90. 1940 ifb>39then1970
  91. 1950 print"[218]um [202]agen brauchst du mehr [205]unition!":goto1540
  92. 1970 m=m-45:gosub5270:ifb1<=1then2050
  93. 2000 if100*rnd(0)<13*b1then2090
  94. 2010 f=f+45-2*b1:print"[147][199]ut geschossen,[160]genau getroffen - heute gibt es reichlich!":b=b-10-3*b1:goto2100
  95. 2050 print"[147][210]eiche [194]eute - das gibt ein [198]estessen.":f=f+52+rnd(0)*6:b=b-10-rnd(0)*4:goto2100
  96. 2090 print"[147][196]aneben - [196]ein [205]ittagessen ist ent-     kommen..."
  97. 2100 iff>=13then2120
  98. 2110 goto4380
  99. 2120 print"[215]ieviel willst du essen:":print"1[146] wenig  2[146] normal  3[146] reichlich"
  100. 2140 inpute:print"[147]";:e=int(e):ife>3ore<1then2140
  101. 2160 f=f-8-5*e:iff>=0then2210
  102. 2180 f=f+8+5*e:print"[211]oviel habt ihr nicht mehr.":goto2120
  103. 2210 m=m+200+(a-220)/5+10*rnd(0):l1=0:c1=0:ifrnd(0)*10>((m/100-4)^2+72)/((m/100-4)^2+12)-1then2920
  104. 2250 print"[210]eiter von vorn, sehen ";:s5=0:ifrnd(0)>.8then2300
  105. 2280 print"nicht gerade ":s5=1
  106. 2300 print"freundlich aus.":print"[196]ein [214]erhalten:":print"1[146] fliehen        2[146] angreifen":print"3[146] weiterfahren   4[146] [215]agenburg"
  107. 2340 ifrnd(0)>.5then2360
  108. 2350 s5=1-s5
  109. 2360 inputt1:ift1<1then2340
  110. 2380 ift1>4then2340
  111. 2390 t1=int(t1):ifs5=1then2710
  112. 2410 ift1>1then2470
  113. 2420 m=m+20:m1=m1-15:b=b-150:a=a-40:goto2850
  114. 2470 ift1>2then2620
  115. 2480 gosub5270:b=b-b1*40-80
  116. 2500 ifb1>1then2550
  117. 2510 print"[199]ut geschossen - sie reiten weg.":fork=1to1000:next:print"[147]":goto2920
  118. 2540 print"[204]ausiger [211]chuss - ihr werdet erstochen.":goto4440
  119. 2550 ifb1<=2then2600
  120. 2560 k8=1:ifrnd(0)>.5then2540
  121. 2580 print"[196]u wirst jetzt wohl den [211]ensenmann      kennenlernen.":goto4440
  122. 2600 print"[196]u bist ganz schoen langsam mit dem 45er[195]olt.":goto2890
  123. 2620 ift1>3then2670
  124. 2630 ifrnd(0)>.8then2830
  125. 2640 b=b-150:m1=m1-15:goto2850
  126. 2670 gosub5270:b=b-b1*30-50:m=m-25:goto2500
  127. 2710 ift1>1then2750
  128. 2720 m=m+15:a=a-10:goto2850
  129. 2750 ift1>2then2790
  130. 2760 m=m-5:b=b-100:goto2850
  131. 2790 ift1>3then2810
  132. 2800 goto2850
  133. 2810 m=m-20:goto2850
  134. 2830 print"[147][211]ie haben nicht angegriffen.":goto2920
  135. 2850 ifs5=0then2880
  136. 2860 print"[147][210]eiter waren freundlich, aber sieh nach,ob noch alles da ist.":goto2920
  137. 2880 print"[147][210]eiter nett - sieh vorsichtshalber nach,ob etwas fehlt."
  138. 2890 ifb>=0then2920
  139. 2900 print"[203]eine [205]unition mehr - die [198]remden toeteneuch.":goto4490
  140. 2920 d1=0:restore:r1=100*rnd(0)
  141. 2950 d1=d1+1:ifd1=16then4010
  142. 2970 readd:ifr1>dthen2950
  143. 2990 data6,11,13,15,17,22,32,35,37,42,44,54,64,69,95:ifd1>10then3020
  144. 3010 ond1goto3030,3070,3100,3150,3180,3210,3240,3310,3480,3540
  145. 3020 ond1-10goto3570,3640,3690,3900,3950,4010
  146. 3030 print"[193]chsbruch - du verlierst [218]eit und       [215]erkzeug.":m=m-15-5*rnd(0):m1=m1-8:goto4040
  147. 3070 print"[197]in [218]ugtier verletzt sich am [194]ein -     ab jetzt geht's langsamer.":m=m-25:a=a-20:goto4040
  148. 3100 print"[208]ech - [196]eine [212]ochter hat sich den [193]rm  gebrochen.":print"[201]hr musstet [208]ause machen und den [193]rm    schienen.":m=m-5-4*rnd(0):m1=m1-2-3*rnd(0):goto4040
  149. 3150 print"[197]in [207]chse laeuft weg, ihr verliert [218]eit beim [211]uchen.":m=m-17:goto4040
  150. 3180 print"[196]ein [211]ohn verirrt sich - den halben [212]ag muesst ihr ihn suchen.":m=m-10:goto4040
  151. 3210 print"[199]efaehrlicher [198]luss - ihr verliert [218]eit beim [213]ebersetzen.":m=m-10*rnd(0)-2:goto4040
  152. 3240 ifm>950then3830
  153. 3250 print"[211]chwere [210]egenfaelle halten euch auf -   [218]eit und [214]orrat verloren.":f=f-10:b=b-500:m1=m1-15:m=m-10*rnd(0)-5:goto4040
  154. 3310 print"[194]anditen greifen an!":gosub5270:b=b-20*b1:ifb>=0then3380
  155. 3350 print"[203]eine [205]unition mehr - sie nehmen einen [212]eil des [199]eldes mit.":t=t/3:goto3390
  156. 3380 ifb1<=1then3450
  157. 3390 print"[196]u wirst ins [194]ein geschossen und sie    stehlen einen eurer [207]chsen.":k8=1:print"[199]eh mit deiner [215]unde lieber zu einem    [193]rzt!":m1=m1-5:a=a-20:goto4040
  158. 3450 print"[147][196]u bist verdammt schnell im ziehen!!":print"[196]u hast sie erwischt.":goto4040
  159. 3480 print"[198]euer im [208]lanwagen - ein [212]eil deines    [194]esitzes verbrennt !":f=f-40:b=b-400:m1=m1-rnd(0)*8-3:m=m-15:goto4040
  160. 3540 print"[196]ichter [206]ebel - ihr verirrt euch und    verliert [218]eit.":m=m-10-5*rnd(0):goto4040
  161. 3570 print"[196]u toetest eine [199]iftschlange - nachdem  sie dich gebissen hat.":b=b-10:m1=m1-5:ifm1>=0then3630
  162. 3610 print"[196]a du kein [211]erum mehr hast, musst du    sterben.":goto4490
  163. 3630 goto4040
  164. 3640 print"[197]in [198]luss - beim [213]ebersetzen verliert   ihr [197]ssen und [203]leider.":f=f-30:c=c-20:m=m-20-20*rnd(0):goto4040
  165. 3690 print"[215]ilde [212]iere greifen an!":gosub5270:ifb>39then3750
  166. 3720 print"[218]uwenig [205]unition - die [215]oelfe fressen   euch.":k8=1:goto4440
  167. 3750 ifb1>2then3780
  168. 3760 print"[199]ut geschossen, [208]artner!":goto3790
  169. 3780 print"[218]u langsam - [214]erpflegung und [203]leider    sind verloren."
  170. 3790 b=b-20*b1:c=c-b1*4:f=f-b1*8:goto4040
  171. 3830 print"[203]altes [215]etter, du hast ";:ifc>22+4*rnd(0)then3870
  172. 3850 print"nicht":c1=1
  173. 3870 print"genug anzuziehen":ifc1=0then4040
  174. 3890 goto5390
  175. 3900 print"[215]irbelsturm - [214]orraete zerstoert.":m=m-5-rnd(0)*10:b=b-200:m1=m1-4-rnd(0)*3:goto4040
  176. 3950 ife=1then5390
  177. 3960 ife=3then3990
  178. 3970 ifrnd(0)>.25then5390
  179. 3980 goto4040
  180. 3990 ifrnd(0)<.5then5390
  181. 4000 goto4040
  182. 4010 print"[200]ilfreiche [201]ndianer zeigen euch, wo es  etwas zum [197]ssen gibt.":f=f+14:goto4040
  183. 4040 ifm<=950then800
  184. 4050 ifrnd(0)*10>9-((m/100-15)^2+72)/((m/100-15)^2+12)then4190
  185. 4060 print"[200]ohe [194]erge machen [211]chwierigkeiten.":ifrnd(0)>.1then4110
  186. 4080 print"[201]hr verliert wertvolle [218]eit bei der     [211]uche nach einem [208]ass.":m=m-60:goto4190
  187. 4110 ifrnd(0)>.11then4170
  188. 4120 print"[215]agen beschaedigt - [218]eit und [215]erkzeug   gehen drauf.":m1=m1-5:b=b-200:m=m-20-30*rnd(0):goto4190
  189. 4170 print"[201]hr werdet langsamer.":m=m-45-rnd(0)/.02
  190. 4190 iff1=1then4230
  191. 4200 f1=1:ifrnd(0)<.8then4300
  192. 4220 print"[201]hr seid sicher durch den [211]uedpass      gekommen - kein [211]chnee."
  193. 4230 ifm<1700then4270
  194. 4240 iff2=1then4270
  195. 4250 f2=1:ifrnd(0)<.7then4300
  196. 4270 ifm>950then800
  197. 4280 m9=1:goto800
  198. 4300 print"[194]lizzard im [194]ergpass - [218]eit und [199]eraete verloren.":l1=1:f=f-25:m1=m1-10:b=b-300:m=m-30-40*rnd(0):ifc<18+2*rnd(0)then5390
  199. 4370 goto4270
  200. 4380 print"[147][201]hr habt nichts mehr zum [197]ssen und      muesst verhungern.":goto4490
  201. 4400 t=0:print"[196]u kannst keinen [193]rzt erreichen.":goto4440
  202. 4430 print"[203]eine [205]edizin mehr vorhanden."
  203. 4440 print"[196]u stirbst an ";:ifk8=1then4480
  204. 4460 print"[204]ungenentzuendung.":goto4490
  205. 4480 print"deinen [214]erletzungen."
  206. 4490 print"[196]einer ungluecklichen [211]ituation entspre-";:print"chend noch einige [198]ormalitaeten:":input"[205]oechtest du einen [208]riester";c$:input"[197]in wuerdiges [194]egraebnis";c$:input"[206]achricht an die [214]erwandten";c$:ifleft$(c$,1)="j"then4570
  207. 4550 print"[147][193]ber [212]ante [211]adie in [211]t.[204]ouis macht sich [211]orgen um euch!":goto4590
  208. 4570 print"[147][196]as macht dann $4.50 fuer [212]elegramm-    gebuehren.":print"   [215]ir danken fuer die [201]nformation."
  209. 4590 print"[197]s tut uns leid, dass ihr es nicht bis":printtab(8)"[207]regon geschafft habt.":printtab(10)"[200]erzliches [194]eileid":printtab(5)"[196]ie [200]andelskammer von [207]regon":end
  210. 4640 f9=(2040-m2)/(m-m2):f=f+(1-f9)*(8+5*e):print"[147][197]ndlich habt ihr [207]regon-[195]ity erreicht,":print"am ";:f9=int(f9*14):d3=d3*14+f9:f9=f9+1:iff9<8then4720
  211. 4710 f9=f9-7
  212. 4720 onf9goto4730,4750,4770,4790,4810,4830,4850
  213. 4730 print"[205]ontag, ";:goto4860
  214. 4750 print"[196]ienstag, ";:goto4860
  215. 4770 print"[205]ittwoch, ";:goto4860
  216. 4790 print"[196]onnerstag, ";:goto4860
  217. 4810 print"[198]reitag, ";:goto4860
  218. 4830 print"[211]amstag, ";:goto4860
  219. 4850 print"[211]onntag, ";
  220. 4860 ifd3>124then4900
  221. 4870 d3=d3-93:print"dem ";d3;". [202]uli 1847":goto5080
  222. 4900 ifd3>155then4940
  223. 4910 d3=d3-124:prin"dem ";d3;". [193]ugust 1847":goto5080
  224. 4940 ifd3>185then4980
  225. 4950 d3=d3-155:print"dem ";d3;".[160][211]eptember 1847":goto5080
  226. 4980 ifd3>216then5020
  227. 4990 d3=d3-185:print"dem ";d3;". [207]ktober 1847":goto5080
  228. 5020 ifd3>246then5060
  229. 5030 d3=d3-216:print"dem ";d3;". [206]ovember 1847":goto5080
  230. 5060 d3=d3-246:print"dem ";d3;". [196]ezember 1847"
  231. 5080 print:ifb>0then5110
  232. 5100 b=0
  233. 5110 ifc>0then5130
  234. 5120 c=0
  235. 5130 ifm1>0then5150
  236. 5140 m1=0
  237. 5150 ift>0then5170
  238. 5160 t=0
  239. 5170 iff>0then5190
  240. 5180 f=0
  241. 5190 print"[214]erpflegung"tab(13)int(f):print"[208]atronen"tab(13)int(b):print"[194]ekleidung"tab(13)int(c):print"[211]onstiges"tab(13)int(m1):print"[194]argeld"tab(13)int(t):print"[205]r. [208]resident [199]ordon [211]mith sendet seine":print"herzlichen [199]lueckwuensche und hofft":print"fuer sie auf eine erfolgreiche [218]ukunft"
  242. 5250 print"in der neuen [200]eimat.":end
  243. 5270 s$(1)="peng":s$(2)="bumm":s$(3)="knall":s$(4)="krach":s6=int(rnd(0)*4+1):print"[211]chreibe '";s$(s6);"'!":tj=ti:inputc$:b1=(ti-tj)/(60*d9):print:ifc$=s$(s6)then5380
  244. 5370 b1=9
  245. 5380 return
  246. 5390 if100*rnd(0)<10+35*(e-1)then5460
  247. 5400 if100*rnd(0)<100-(40/4^(e-1))then5500
  248. 5410 print"[197]rnste [203]rankheit - ihr muesst einen [193]rztaufsuchen!":m=m-10:m1=m1-10:s4=1:goto5530
  249. 5460 print"[204]eichte [197]rkrankung - ihr braucht [205]edizin";:m=m-5:m1=m1-2:goto5530
  250. 5500 print"[211]chwere [197]rkrankung - [205]edizin benoetigt!":m=m-5:m1=m1-5
  251. 5530 ifm1<0then4430
  252. 5540 ifl1=1then4270
  253. 5550 goto4040
  254.